SuperModels in the Rainforest/SuperModels in the Rainforest.iso/rain.dxr/00004_A handlers.ls

Text File | 1995-10-13 | 888 b | 38 lines

on aLoadSeries asName, abUpdateStatus
  global gbDebug
  repeat with i = 1 to 100
    set sTempName to asName & i
    set iCastNum to the number of cast sTempName
    if iCastNum = -1 then
      exit repeat
    end if
    preLoadCast(iCastNum)
  end repeat
end

on aDebug asDebugMsg
  put asDebugMsg
end

on aRotatePicture asName, aiSprite
  set iRetVal to 1
  set iCurNum to value(the last char in asName)
  put EMPTY into char length(asName) of asName
  set iCurNum to iCurNum + 1
  set stempCast to asName & iCurNum
  set iNextCast to the number of cast stempCast
  if iNextCast = -1 then
    set stempCast to asName & "1"
    set iNextCast to the number of cast stempCast
    set iRetVal to 0
  end if
  set the castNum of sprite aiSprite to iNextCast
  puppetTransition(23, 4, 8, 0)
  return iRetVal
end

on aMainScreenExit
  global gsLastPlace
  set gsLastPlace to "MainScreen"
end